home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / hyperscr.sit / HyperScribe v0.03 / background_2663.txt < prev    next >
Text File  |  1988-10-30  |  16KB  |  717 lines
  1. -- background: 2663 from stack: in.03
  2. -- bmap block id: 4144
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: draftback
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the number of this card into background field card_num_display
  9. end openCard
  10.  
  11.  
  12. on arrowKey direction
  13.   if direction is "left" or direction is "right" then
  14.     pass arrowKey
  15.   else
  16.     get field "dragSpeedDisplay"
  17.     if direction is "up" then
  18.       add field "dragDelta" to it
  19.     else
  20.       subtract field "dragDelta" from it
  21.     end if
  22.     if it < 0 or it > 500 then put 0 into it
  23.     put it into field "dragSpeedDisplay"
  24.   end if
  25. end arrowKey
  26.  
  27.  
  28. on enterKey
  29.   watcher "set dragSpeed to" && field "dragSpeedDisplay"
  30. end enterKey
  31.  
  32. on doMenu menuitem
  33.   global watch,exMenuClicked
  34.   if exMenuClicked is true then
  35.     put false into exMenuClicked
  36.     dowatcher "doMenu" && quote & menuitem & quote
  37.     get field "CurrentTool"
  38.     reactivate it
  39.   else
  40.     pass doMenu
  41.   end if
  42. end doMenu
  43.  
  44. on reactivate toolName
  45.   if toolName is "Select" then
  46.     trackSelect true
  47.   else
  48.     trackTool toolName
  49.   end if
  50. end reactivate
  51.  
  52.  
  53. on watcher command
  54.   global watch
  55.   get command
  56.   if watch is true then
  57.     put command && return after field genscript
  58.   end if
  59. end watcher
  60.  
  61. on dowatcher command
  62.   get command
  63.   watcher it
  64.   do it
  65. end dowatcher
  66.  
  67. function withinPoint px,py,ux,uy,lx,ly
  68. if (((ux < px and px < lx) or (lx < px and px < ux)) and ((uy < py and py < ly) or (ly < py and py < uy)))
  69. then
  70. return true
  71. else
  72.   return false
  73. end if
  74. end withinPoint
  75.  
  76. function withinRect p,r
  77. return withinPoint(item 1 of p,item 2 of p,item 1 of r, item 2 of r, item 3 of r, item 4 of r)
  78. end withinRect
  79.  
  80. function within p,ul,lr
  81. return withinPoint(item 1 of p,item 2 of p,item 1 of ul, item 2 of ul, item 1 of lr, item 2 of lr)
  82. end within
  83.  
  84. function vectorMinus v1,v2
  85. return item 1 of v1 - item 1 of v2 & "," & item 2 of v1 - item 2 of v2
  86. end vectorMinus
  87.  
  88. function vectorPlus v1,v2
  89. return item 1 of v1 + item 1 of v2 & "," & item 2 of v1 + item 2 of v2
  90. end vectorPlus
  91.  
  92. on mouseDown
  93.   global mouseDownSpot,newToolClicked,exMenuClicked
  94.   get the mouseLoc
  95.   put it into field "mouseDownSpot"
  96.   put it into mouseDownSpot
  97.   put withinRect(it,the rect of background button ID 18) into newToolClicked
  98.   if newToolClicked is true then
  99.     hide background button "pallet hider"
  100.   end if
  101.  
  102.   put withinRect(it,the rect of background button ID 19) into exMenuClicked
  103.   pass mouseDown
  104. end mouseDown
  105.  
  106. on mouseUp
  107.   global mouseUpSpot
  108.   get the mouseLoc
  109.   put it into field "mouseUpSpot"
  110.   put it into mouseUpSpot
  111.   pass mouseUp
  112. end mouseUp
  113.  
  114. on trackTool toolname
  115.   global newToolClicked,exMenuClicked,mouseDownSpot,mouseUpSpot, palletHidden
  116.   if palletHidden is true then
  117.     show background button "Pallet Hider"
  118.   end if
  119.   set hilite of bkgnd button "New Tool" to true
  120.   put toolname into field "CurrentTool"
  121.   put "choose" && toolname && "tool" into chooser
  122.   repeat
  123.     repeat until the mouse is down
  124.       set the cursor to 2
  125.     end repeat
  126.     mouseDown
  127.     if newToolClicked is true then exit repeat
  128.     if exMenuClicked is true then exit trackTool
  129.     repeat until the mouse is up
  130.       do chooser
  131.       drag from field "mouseDownSpot" to the mouseLoc
  132.       doMenu "Undo"
  133.     end repeat
  134.     mouseUp
  135.     dowatcher chooser
  136.     dowatcher "drag from" && field "mouseDownSpot" && "to" && field "mouseUpSpot"
  137.   end repeat
  138.   set hilite of bkgnd button "New Tool" to false
  139.   choose browse tool
  140. end trackTool
  141.  
  142. on trackSelect reenter
  143.   -- reenter is true when called from a doMenu handler
  144.   global upperLeft,lowerRight,newToolClicked,exMenuClicked, mouseDownSpot,mouseUpSpot,PalletHidden
  145.   if palletHidden is true then
  146.     show background button "Pallet Hider"
  147.   end if
  148.   set hilite of bkgnd button "New Tool" to true
  149.   put "Select" into field "CurrentTool"
  150.   if reenter <> true then
  151.     put "0,0" into upperLeft
  152.     put upperLeft into lowerRight
  153.   end if
  154.   repeat
  155.     repeat until the mouse is down
  156.       set the cursor to 2
  157.     end repeat
  158.     mouseDown
  159.     if newToolClicked is true then exit repeat
  160.     if exMenuClicked is true then exit trackSelect
  161.     if within(mouseDownSpot,upperLeft,lowerRight) then
  162.       put mouseDownSpot into formerLoc
  163.       repeat until the mouse is up
  164.         get the mouseLoc
  165.         drag from formerLoc to it
  166.         put it into formerLoc
  167.       end repeat
  168.       mouseUp
  169.       watcher "drag from" && mouseDownSpot && "to" && mouseUpSpot
  170.       get vectorMinus(mouseUpSpot,mouseDownSpot)
  171.       put vectorPlus(upperLeft,it) into upperLeft
  172.       put vectorPlus(lowerRight,it) into lowerRight
  173.     else
  174.       put mouseDownSpot into upperLeft
  175.       repeat until the mouse is up
  176.         choose rectangle tool
  177.         drag from mouseDownSpot to the mouseLoc
  178.         doMenu "Undo"
  179.       end repeat
  180.       mouseUp
  181.       put mouseUpSpot into lowerRight
  182.       get field "dragSpeedDisplay"
  183.       if it > 0 then
  184.         watcher "set dragSpeed to 0"
  185.       end if
  186.       dowatcher "choose select tool"
  187.       dowatcher "drag from" && upperLeft && "to" && lowerRight
  188.       if it > 0 then
  189.         watcher "set dragSpeed to" && it
  190.       end if
  191.  
  192.     end if
  193.   end repeat
  194.   set hilite of bkgnd button "New Tool" to false
  195.   choose browse tool
  196. end trackSelect
  197.  
  198.  
  199.  
  200.  
  201. -- part 1 (field)
  202. -- low flags: 00
  203. -- high flags: 0007
  204. -- rect: left=14 top=24 right=266 bottom=226
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 3
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: genscript
  213.  
  214.  
  215. -- part 2 (button)
  216. -- low flags: 00
  217. -- high flags: A003
  218. -- rect: left=28 top=319 right=341 bottom=105
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Ignoring
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   global watch
  230.   if watch is "true" then
  231.     put "false" into watch
  232.     set name of bkgnd button id 2 to "Ignoring"
  233.   else
  234.     put "true" into watch
  235.     set name of bkgnd button id 2 to "Recording"
  236.   end if
  237.  
  238. end mouseUp
  239.  
  240. on mouseDown
  241. end mouseDown
  242.  
  243.  
  244.  
  245. -- part 3 (button)
  246. -- low flags: 00
  247. -- high flags: A003
  248. -- rect: left=266 top=319 right=340 bottom=353
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: Show Pallet
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   global PalletHidden
  260.   get PalletHidden
  261.   if it is true then
  262.     hide bkgnd button "Pallet Hider"
  263.     set name of bkgnd button id 3 to "Hide Pallet"
  264.     put false into PalletHidden
  265.   else
  266.     show bkgnd button "Pallet Hider"
  267.     set name of bkgnd button id 3 to "Show Pallet"
  268.     put true into PalletHidden
  269.   end if
  270. end mouseUp
  271.  
  272. on mouseDown
  273. end mouseDown
  274.  
  275.  
  276.  
  277. -- part 6 (button)
  278. -- low flags: 00
  279. -- high flags: A003
  280. -- rect: left=179 top=319 right=341 bottom=263
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: Show Script
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   get visible of bkgnd button "Script Hider"
  292.   if it is true then
  293.     hide bkgnd button "Script Hider"
  294.     set name of bkgnd button id 6 to "Hide Script"
  295.   else
  296.     show bkgnd button "Script Hider"
  297.     set name of bkgnd button id 6 to "Show Script"
  298.   end if
  299. end mouseUp
  300.  
  301. on mouseDown
  302. end mouseDown
  303.  
  304.  
  305.  
  306. -- part 10 (button)
  307. -- low flags: 00
  308. -- high flags: 2000
  309. -- rect: left=307 top=44 right=65 bottom=330
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: Fake Browse
  318. ----- HyperTalk script -----
  319. on mouseUp
  320. end mouseUp
  321.  
  322. on mouseDown
  323.   global palletHidden
  324.   put "Browse" into field "CurrentTool"
  325.   if palletHidden is true then
  326.     show background button "pallet hider"
  327.   end if
  328.  
  329.   dowatcher "choose browse tool"
  330. end mouseDown
  331.  
  332.  
  333.  
  334. -- part 11 (button)
  335. -- low flags: 00
  336. -- high flags: 2000
  337. -- rect: left=306 top=70 right=91 bottom=329
  338. -- title width / last selected line: 0
  339. -- icon id / first selected line: 0 / 0
  340. -- text alignment: 1
  341. -- font id: 0
  342. -- text size: 12
  343. -- style flags: 0
  344. -- line height: 16
  345. -- part name: Fake Select
  346. ----- HyperTalk script -----
  347. on mouseUp
  348.   trackSelect false
  349. end mouseUp
  350.  
  351. on mouseDown
  352. end mouseDown
  353.  
  354.  
  355.  
  356. -- part 12 (field)
  357. -- low flags: 00
  358. -- high flags: 0002
  359. -- rect: left=49 top=272 right=287 bottom=122
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 0
  363. -- font id: 3
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: mouseDownSpot
  368.  
  369.  
  370. -- part 14 (field)
  371. -- low flags: 00
  372. -- high flags: 0002
  373. -- rect: left=386 top=190 right=208 bottom=456
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 0
  377. -- font id: 0
  378. -- text size: 12
  379. -- style flags: 0
  380. -- line height: 16
  381. -- part name: CurrentTool
  382.  
  383.  
  384. -- part 13 (field)
  385. -- low flags: 00
  386. -- high flags: 0002
  387. -- rect: left=145 top=272 right=287 bottom=222
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 0
  391. -- font id: 3
  392. -- text size: 12
  393. -- style flags: 0
  394. -- line height: 16
  395. -- part name: mouseUpSpot
  396.  
  397.  
  398. -- part 16 (button)
  399. -- low flags: 00
  400. -- high flags: 2000
  401. -- rect: left=329 top=111 right=132 bottom=352
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 1
  405. -- font id: 0
  406. -- text size: 12
  407. -- style flags: 0
  408. -- line height: 16
  409. -- part name: Fake Rectangle
  410. ----- HyperTalk script -----
  411. on mouseUp
  412.   trackTool "Rectangle"
  413. end mouseUp
  414.  
  415. on mouseDown
  416. end mouseDown
  417.  
  418.  
  419.  
  420. -- part 17 (button)
  421. -- low flags: 00
  422. -- high flags: 2000
  423. -- rect: left=353 top=90 right=111 bottom=376
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 1
  427. -- font id: 0
  428. -- text size: 12
  429. -- style flags: 0
  430. -- line height: 16
  431. -- part name: Fake Line
  432. ----- HyperTalk script -----
  433. on mouseUp
  434.   trackTool "Line"
  435. end mouseUp
  436.  
  437. on mouseDown
  438. end mouseDown
  439.  
  440.  
  441.  
  442. -- part 18 (button)
  443. -- low flags: 00
  444. -- high flags: A003
  445. -- rect: left=355 top=318 right=340 bottom=424
  446. -- title width / last selected line: 0
  447. -- icon id / first selected line: 0 / 0
  448. -- text alignment: 1
  449. -- font id: 0
  450. -- text size: 12
  451. -- style flags: 0
  452. -- line height: 16
  453. -- part name: New Tool
  454. ----- HyperTalk script -----
  455. on mouseUp
  456.   hide bkgnd button "Pallet Hider"
  457.  
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 19 (button)
  463. -- low flags: 00
  464. -- high flags: A003
  465. -- rect: left=427 top=318 right=339 bottom=480
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: Menu
  474.  
  475.  
  476. -- part 20 (button)
  477. -- low flags: 00
  478. -- high flags: A003
  479. -- rect: left=108 top=320 right=341 bottom=173
  480. -- title width / last selected line: 0
  481. -- icon id / first selected line: 0 / 0
  482. -- text alignment: 1
  483. -- font id: 0
  484. -- text size: 12
  485. -- style flags: 0
  486. -- line height: 16
  487. -- part name: Playback
  488. ----- HyperTalk script -----
  489. on mouseUp
  490.   global watch
  491.   put watch into origWatch
  492.   put the number of lines in field "genScript" into doCount
  493.   repeat with lineNum = 1 to doCount
  494.     do line lineNum of field "genScript"
  495.   end repeat
  496.   put origWatch into watch
  497.   choose browse tool
  498. end mouseUp
  499.  
  500. on mouseDown
  501. end mouseDown
  502.  
  503.  
  504.  
  505. -- part 21 (field)
  506. -- low flags: 00
  507. -- high flags: 0002
  508. -- rect: left=299 top=269 right=286 bottom=327
  509. -- title width / last selected line: 0
  510. -- icon id / first selected line: 0 / 0
  511. -- text alignment: 0
  512. -- font id: 3
  513. -- text size: 12
  514. -- style flags: 0
  515. -- line height: 16
  516. -- part name: DragSpeedDisplay
  517.  
  518.  
  519. -- part 25 (field)
  520. -- low flags: 00
  521. -- high flags: 0002
  522. -- rect: left=423 top=213 right=229 bottom=456
  523. -- title width / last selected line: 0
  524. -- icon id / first selected line: 0 / 0
  525. -- text alignment: 0
  526. -- font id: 3
  527. -- text size: 12
  528. -- style flags: 0
  529. -- line height: 16
  530. -- part name: DragDelta
  531.  
  532.  
  533. -- part 26 (button)
  534. -- low flags: 00
  535. -- high flags: 8000
  536. -- rect: left=330 top=268 right=289 bottom=495
  537. -- title width / last selected line: 0
  538. -- icon id / first selected line: 0 / 0
  539. -- text alignment: 1
  540. -- font id: 0
  541. -- text size: 12
  542. -- style flags: 0
  543. -- line height: 16
  544. -- part name: Drag Speed (Enter to set)
  545.  
  546.  
  547. -- part 27 (button)
  548. -- low flags: 00
  549. -- high flags: 8000
  550. -- rect: left=338 top=213 right=233 bottom=420
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 1
  554. -- font id: 0
  555. -- text size: 12
  556. -- style flags: 0
  557. -- line height: 16
  558. -- part name: Drag Delta
  559.  
  560.  
  561. -- part 28 (button)
  562. -- low flags: 00
  563. -- high flags: 8003
  564. -- rect: left=413 top=237 right=262 bottom=455
  565. -- title width / last selected line: 0
  566. -- icon id / first selected line: 0 / 0
  567. -- text alignment: 1
  568. -- font id: 0
  569. -- text size: 12
  570. -- style flags: 0
  571. -- line height: 16
  572. -- part name: Full
  573. ----- HyperTalk script -----
  574. on mouseUp
  575.   put 0 into field "DragSpeedDisplay"
  576.   send enterKey to background
  577. end mouseUp
  578.  
  579.  
  580.  
  581. -- part 31 (button)
  582. -- low flags: 00
  583. -- high flags: 0000
  584. -- rect: left=485 top=317 right=341 bottom=511
  585. -- title width / last selected line: 0
  586. -- icon id / first selected line: 25002 / 25002
  587. -- text alignment: 1
  588. -- font id: 0
  589. -- text size: 12
  590. -- style flags: 0
  591. -- line height: 16
  592. -- part name: Go To Help
  593. ----- HyperTalk script -----
  594. on mouseUp
  595.   go to card id 4765
  596. end mouseUp
  597.  
  598.  
  599.  
  600.  
  601. -- part 34 (button)
  602. -- low flags: 00
  603. -- high flags: 8003
  604. -- rect: left=306 top=238 right=263 bottom=348
  605. -- title width / last selected line: 0
  606. -- icon id / first selected line: 0 / 0
  607. -- text alignment: 1
  608. -- font id: 0
  609. -- text size: 12
  610. -- style flags: 0
  611. -- line height: 16
  612. -- part name: Slow
  613. ----- HyperTalk script -----
  614. on mouseUp
  615.   put 40 into field "DragSpeedDisplay"
  616.   send enterKey to background
  617. end mouseUp
  618.  
  619.  
  620.  
  621. -- part 35 (button)
  622. -- low flags: 00
  623. -- high flags: 8003
  624. -- rect: left=359 top=238 right=263 bottom=401
  625. -- title width / last selected line: 0
  626. -- icon id / first selected line: 0 / 0
  627. -- text alignment: 1
  628. -- font id: 0
  629. -- text size: 12
  630. -- style flags: 0
  631. -- line height: 16
  632. -- part name: Med
  633. ----- HyperTalk script -----
  634. on mouseUp
  635.   put 150 into field "DragSpeedDisplay"
  636.   send enterKey to background
  637. end mouseUp
  638.  
  639.  
  640.  
  641. -- part 36 (button)
  642. -- low flags: 00
  643. -- high flags: 8000
  644. -- rect: left=301 top=189 right=209 bottom=383
  645. -- title width / last selected line: 0
  646. -- icon id / first selected line: 0 / 0
  647. -- text alignment: 1
  648. -- font id: 0
  649. -- text size: 12
  650. -- style flags: 0
  651. -- line height: 16
  652. -- part name: Current Tool
  653.  
  654.  
  655. -- part 32 (button)
  656. -- low flags: 00
  657. -- high flags: 2000
  658. -- rect: left=330 top=132 right=153 bottom=353
  659. -- title width / last selected line: 0
  660. -- icon id / first selected line: 0 / 0
  661. -- text alignment: 1
  662. -- font id: 0
  663. -- text size: 12
  664. -- style flags: 0
  665. -- line height: 16
  666. -- part name: Fake Oval
  667. ----- HyperTalk script -----
  668. on mouseUp
  669.   trackTool "Oval"
  670. end mouseUp
  671.  
  672. on mouseDown
  673. end mouseDown
  674.  
  675.  
  676.  
  677. -- part 4 (button)
  678. -- low flags: 00
  679. -- high flags: 0001
  680. -- rect: left=275 top=23 right=301 bottom=502
  681. -- title width / last selected line: 0
  682. -- icon id / first selected line: 0 / 0
  683. -- text alignment: 1
  684. -- font id: 0
  685. -- text size: 12
  686. -- style flags: 0
  687. -- line height: 16
  688. -- part name: Pallet Hider
  689.  
  690.  
  691. -- part 37 (button)
  692. -- low flags: 00
  693. -- high flags: 0001
  694. -- rect: left=4 top=7 right=316 bottom=265
  695. -- title width / last selected line: 0
  696. -- icon id / first selected line: 0 / 0
  697. -- text alignment: 1
  698. -- font id: 0
  699. -- text size: 12
  700. -- style flags: 0
  701. -- line height: 16
  702. -- part name: script hider
  703.  
  704.  
  705. -- part 38 (field)
  706. -- low flags: 01
  707. -- high flags: 0004
  708. -- rect: left=2 top=317 right=340 bottom=27
  709. -- title width / last selected line: 0
  710. -- icon id / first selected line: 0 / 0
  711. -- text alignment: 0
  712. -- font id: 0
  713. -- text size: 12
  714. -- style flags: 0
  715. -- line height: 16
  716. -- part name: card_num_display
  717.